module const_mod

  implicit none

  real(8), parameter :: pi = atan(1.0d0) * 4.0d0
  real(8), parameter :: pi0p5 = 0.5d0 * pi

end module const_mod
